home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu358.dms / pu358.adf / DonsGenies / Don'sGenies / BoxesGroupAll.pprx < prev    next >
Text File  |  1992-07-26  |  863b  |  39 lines
  1. /* Group all the boxes on the current page. Then you can hold down the shift key and move them all at once, or apply any of the group genies.
  2. Written by Don Cox */
  3.  
  4. trace n
  5. signal on error
  6. signal on syntax
  7. call ppm_AutoUpdate(0)
  8. cr = "0a"x
  9.  
  10. address command
  11. call SafeEndEdit.rexx()
  12.  
  13. call ppm_NewGroup()
  14. call ppm_ShowStatus("Grouping Boxes ...")
  15. thispage = ppm_CurrentPage()
  16. totalboxes = ppm_NumBoxes(thispage)
  17. box = ppm_PageFirstBox(thispage)
  18. do i = 1 to totalboxes
  19.     call ppm_AddToGroup(box)
  20.     box = ppm_PageNextBox(box)
  21.     end
  22.  
  23. exit_msg("Hold down shift key to move the whole group together")
  24.  
  25. error:
  26. syntax:
  27.     do
  28.     exit_msg("Genie failed due to error: "errortext(rc))
  29.     end
  30.  
  31. exit_msg:
  32.     do
  33.     parse arg message
  34.     if message ~= "" then
  35.     call ppm_Inform(1,message,"Resume")
  36.     call ppm_ClearStatus()
  37.     call ppm_AutoUpdate(1)
  38.     exit
  39.     end